home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 April / 64er_Magazin_84-04_1984_Markt__Technik_de.d64 / diskcopy v2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  92 lines
  1. 100 rem *** initialisierung ***
  2. 110 poke56,peek(46)+14:clr:rb=peek(644)-peek(56):pa=1:an=0:bl=0:nf$=""
  3. 120 pe=peek(45)+256*peek(46):mr=pe-135:mw=pe-79:md=pe-24
  4. 130 dimnf$(140),cf%(140),bl%(140),p%(10),al%(90),ah%(90)
  5. 140 p%(0)=0:al%(0)=0:ah%(0)=peek(56)-1
  6. 150 :
  7. 160 rem *** menue ***
  8. 170 print"[147]"tab(9)"***** disk copy *****":printtab(10)"von d.weineck 2/84"
  9. 180 print"1.  directory
  10. 190 [153]"2.  kopieren
  11. 200 print"3.  formatieren
  12. 210 [153]"4.  ende
  13. 220 printspc(212)"bitte waehlen sie
  14. 230 [161]dc$:dc[178][197](dc$):[139]dc[179]1[176]dc[177]4[167]230
  15. 240 [145]dc[137]910,270,700,670
  16. 250 :
  17. 260 [143] *** kopieren ***
  18. 270 [153]"loadoriginaldiskette einlegen"
  19. 280 [141]990
  20. 290 [143] *** files einlesen ***
  21. 300 [159]1,8,0,"$0"
  22. 310 [141]760:[139]nf$[179][177]""[167]340
  23. 320 [139]st[178]0[167]310
  24. 330 [137]350
  25. 340 bl%(an)[178][198](bl$[170][199](0)):nf$(an)[178]nf$:[139]st[178]0[167]an[178]an[170]1:nf$[178]"":[137]310
  26. 350 [160]1:an[178]an[171]1:[139]an[178]0[167][153]"leere diskettewait":[141]990:[138]
  27. 360 [143] *** kopierauswahl ***
  28. 370 [153]"loadantworten sie mit j/n"
  29. 380 [129]i[178]1[164]an:[153]bl%(i);[163]5)nf$(i)" ? ";:[151]198,0
  30. 390 [146]198,1:[161]a$:[139]a$[178]"j"[167]cf%(i)[178][171]1:bl[178]bl[170]bl%(i):[153][163]30)" ja wait":[137]420
  31. 400 cf%(i)[178]0:[139]a$[179][177]"n"[167]390
  32. 410 [153][163]30)"nein"
  33. 420 [139]bl[177]rb[167]p%(pa)[178]i[171]1:pa[178]pa[170]1:bl[178]bl%(i)
  34. 430 [130]i:p%(pa)[178]an
  35. 440 [139]bl[178]0[167]640
  36. 450 [143] *** kopie ***
  37. 460 [153]"loadkopie in arbeit"
  38. 470 [129]i[178]1[164]pa
  39. 480 [129]rw[178]0[164]1:nr[178]0:[139]rw[178]1[167][153]"zieldisk einlegen":[141]990
  40. 490 [129]j[178]p%(i[171]1)[170]1[164]p%(i)
  41. 500 [139][168]cf%(j)[167][130]j:[137]540
  42. 510 nf$[178]nf$(j):[153]bl%(j);[163]5)nf$:[141]570:[139]st[178]0[176]st[178]64[167]530
  43. 520 [141]880:[138]
  44. 530 [130]j
  45. 540 [130]rw:[139]i[178]pa[167]640
  46. 550 [153]"originaldisk einlegen":[141]990
  47. 560 [130]i:[138]
  48. 570 [139]rw[178]1[167]610
  49. 580 [159]1,8,5,nf$[170]",r":[151]252,0:[151]253,ah%(nr)[170]1
  50. 590 [158]mr:nr[178]nr[170]1:al%(nr)[178][194](254):ah%(nr)[178][194](255)
  51. 600 [160]1:[142]
  52. 610 [159]1,8,5,nf$[170]",w":[151]252,0:[151]253,ah%(nr)[170]1
  53. 620 [151]254,al%(nr[170]1):[151]255,ah%(nr[170]1):[158]mw
  54. 630 nr[178]nr[170]1:[160]1:[142]
  55. 640 [153]"kopie fertig !
  56. 650 gosub990:run
  57. 660 rem *** ende ***
  58. 670 poke56,160:end
  59. 680 :
  60. 690 rem *** formatieren ***
  61. 700 input"[147]diskname";fo$:id$="":input"disk-id";id$:ifid$<>""thenid$=","+id$
  62. 710 fo$=fo$+id$
  63. 720 print"bitte zieldiskette einlegen"
  64. 730 gosub990
  65. 740 open1,8,15,"n:"+fo$:close1
  66. 750 gosub880:goto170
  67. 760 rem directory einlesen
  68. 770 get#1,a$,b$
  69. 780 get#1,bl$,b$
  70. 790 get#1,a$
  71. 800 get#1,b$:ifst<>0thenreturn
  72. 810 ifb$<>chr$(34)then800
  73. 820 get#1,b$:ifb$<>chr$(34)thennf$=nf$+b$:goto820
  74. 830 get#1,b$:ifb$=chr$(32)then830
  75. 840 nf$=nf$+","+b$:fori=0to1:get#1,b$:nf$=nf$+b$:next
  76. 850 get#1,b$:ifb$<>""then850
  77. 860 return
  78. 870 rem *** fehler-ausgabe ***
  79. 880 open15,8,15:input#15,a,b$,c,d:printa;b$;c;d:close15:gosub990:return
  80. 890 :
  81. 900 rem *** directory ***
  82. 910 print"[147]"
  83. 920 open3,8,0,"$0":get#3,a$,a$
  84. 930 get#3,a$,a$,bl$,bh$
  85. 940 ifa$=""thenclose3:goto980
  86. 950 bl$=bl$+chr$(0):bh$=bh$+chr$(0)
  87. 960 print256*asc(bh$)+asc(bl$);
  88. 970 sysmd:goto930
  89. 980 gosub 990:goto170
  90. 990 printspc(69)"[164][164][164][164][164][164][164]":printspc(29)"*taste*[146]"
  91. 1000 poke198,0:wait198,1:geta$:return
  92.